home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
ca29_4.zip
/
TESTVOIC.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1990-03-15
|
491b
|
17 lines
;
; Say something if voice driver is loaded
;
IF FIND "_OVER" "talker." ; If overlay is talker,
N0 = 100 ; Set voice pitch
SCALL 18,N0 ; .. to 100 Hz
N0 = 100 ; Set voice rate
SCALL 15,N0 ; .. to 100 wps
S0 = "Ay kaen tawk" ; Set phonetic string
SCALL 3,S0 ; Speak phonetic string
ENDIF
;
; And return
;
IF FCALLED FRET ; Return if called
EXIT ; Else, stop